home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / rbbs_pc / city173c.zip / R-PCCITY.DOC < prev    next >
Text File  |  1992-02-04  |  11KB  |  199 lines

  1. ============[ Changes to RBBS-PC 17.3C ]===============
  2. Written by Gary Glueckert of The SUNY RBBS 516-420-0818
  3. The State University of New York at Farmingdale
  4.  
  5. Last Fix:  GG100901
  6.  
  7. CONVENTIONS:
  8.     The changes are assigned numbers that correspond to the month,
  9.     day, and order in which they were made.  Any mods are dated
  10.     following the modification description.  The lines of source code
  11.     that are changed/modified/added are designated by the comment
  12.     beginning in column 70 of "' iiMMDD#" where ii is the initials of
  13.     the person providing the change.
  14.  
  15. -------------------------------------------------------------------
  16. RBBS-PC.EXE         09-01-91  midnight EST  Release of 17.3C
  17. --------------------------------------------------------------------
  18.  
  19. RBBS  GG100701  User unable to change city/state information
  20. RBBS  GG100901  SysOp unable to change city/state information
  21.  
  22. ------------------------[ GG100701 ]------------------------
  23.  
  24. Problem:  User is unable to change CITY/STATE field in users file when
  25. the user's information for this field may have changed.
  26.  
  27. Solution:  Change RBBS-PC.BAS as follows:
  28.  
  29. 1240 IF ZUserSecLevel < ZOptSec(ZFF) THEN _
  30.        ZViolation$ = ZSection$ + _
  31.                      " " + _
  32.                      ZWasZ$ : _
  33.         GOSUB 1380 : _
  34.         GOTO 1205
  35.      IF ZFF > 39 THEN _
  36.         ZDirExtension$ = ZLibDirExtension$ _
  37.      ELSE ZDirExtension$ = ZMainDirExtension$
  38.         ON ZFF GOSUB _
  39.                  1400, _      ' 1  A)nswer questionnaire 1
  40.                  9700, _      ' 2  B)ulletins
  41.                  1800, _      ' 3  C)omments
  42.                  10970, _     ' 4  D)oor (exit to)
  43.                  2000, _      ' 5  E)nter a message
  44.                  1275, _      ' 6  F)ile system (exit to)
  45.                  1760, _      ' 7  I)nitial welcome redisplayed
  46.                  5300, _      ' 8  J)oin a conference
  47.                  3900, _      ' 9  K)ill a message
  48.                  4700, _      '10  O)perator page
  49.                  1900, _      '11  P)ersonal mail (look for)
  50.                  4330, _      '12  R)ead messages
  51.                  4340, _      '13  S)can message headers
  52.                  4320, _      '14  T)opic msg scan
  53.                  1285, _      '15  U)tilities (exit to)
  54.                  5800, _      '16  V)iew a conference
  55.                  9800, _      '17  W)ho's on other nodes displayed
  56.                  1283, _      '18  @)Library (exit to) 18
  57.                 20160, _      '19  D)ownload
  58.                 10570, _      '20  G)oodbye
  59.                 20155, _      '21  L)ist
  60.                 20185, _      '22  N)ew
  61.                 20180, _      '23  P)ersonal files
  62.                 20175, _      '24  S)can
  63.                 20170, _      '25  U)pload
  64.                 20140, _      '26  V)iew ARC Contents
  65.                  5500, _      '27  B)aud rate change 300==>450 1
  66.                  9100, _      '28  C)lock (time & time on)
  67.                  42850, _     '29  E)cho selection
  68.                  42800, _     '30  F)ile transfer protocol
  69.                  43000, _     '31  G)raphics
  70.                  5200, _      '32  L)ines per page
  71.                  10925, _     '33  M)essage margin
  72.                  5000, _      '34  P)ersonal Info.                   '  GG100701
  73.                  5400, _      '35  R)eview preferences
  74.                  4850, _      '36  S)tatistics displayed
  75.                  1500, _      '37  T)oggle
  76.                  10090, _     '38  U)serlog displayed 12
  77.                  30000, _     '39  A)rchive a Library disk 1
  78.                  30100, _     '40  C)hange a Library disk
  79.                  30200, _     '41  D)ownload Library files
  80.                  10570, _     '42  G)oodbye
  81.                  20155, _     '43  L)ist a Library directory
  82.                  20175, _     '44  S)can a Library disk directory
  83.                  20140, _     '45  V)iew arc contents 7
  84.                  1325, _      '46  H)elp 1
  85.                  1330, _      '47  ?)help
  86.                  1250, _      '48  Q)uit
  87.                  4240, _      '49  X)expert toggle on/off 4
  88.                  10070, _     '50  1) List comments file 1
  89.                  10090, _     '51  2) List callers file
  90.                  10390, _     '52  3) Recover a message
  91.                  10530, _     '53  4) Erase comments
  92.                  11000, _     '54  5) User file maintenance
  93.                   4130, _     '55  6) Toggle page bell on/off
  94.                  10930        '56  7) Exit to DOS 2.x or above 7
  95.      GOTO 1205
  96.  
  97. 5000 WasA1$ = LEFT$(ZUserLocation$,1)                                '  GG100701
  98.      CALL AllCaps(WasA1$)                                            '  GG100701
  99.      ZOutTxt$ = WasA1$ + ")" +  _                                    '  GG100701
  100.         RIGHT$(ZUserLocation$, LEN(ZUserLocation$) - 1)              '  GG100701
  101.      ZOutTxt$ = "Change P)assword or " + ZOutTxt$ + ZPressEnter$     '  GG100701
  102.      CALL SkipLine (1) : _                                           '  GG100701
  103.      ZTurboKey = -ZTurboKeyUser                                      '  GG100701
  104.      GOSUB 12995 : _                                                 '  GG100701
  105.      IF ZSubParm < 0 THEN _                                          '  GG100701
  106.         GOTO 202                                                     '  GG100701
  107.      IF ZWasQ = 0 THEN _                                             '  GG100701
  108.         RETURN                                                       '  GG100701
  109.      CALL AllCaps (ZUserIn$)                                         '  GG100701
  110.      IF ZUserIn$ = WasA1$ THEN _                                     '  GG100701
  111.         CALL SkipLine (1) : _                                        '  GG100701
  112.         CALL QuickTPut ("Your CURRENT " + ZUserLocation$ + _         '  GG100701
  113.             " is " + ZCityState$,1) : _                              '  GG100701
  114.         WasA1$ = "Enter your NEW " : _                               '  GG100701
  115.         GOSUB 12960 : _                                              '  GG100701
  116.         WasA1$ = "What is your " : _                                 '  GG100701
  117.         ZUserIn$ = "" : _                                            '  GG100701
  118.         RETURN                                                       '  GG100701
  119.      IF ZUserIn$ < > "P" THEN _                                      '  GG100701
  120.         GOTO 5000                                                    '  GG100701
  121.  
  122.  
  123. 12960 ZOutTxt$ = WasA1$ + _
  124.            ZUserLocation$   
  125.      IF ZOrigUserFile$ <> ZActiveUserFile$ THEN _                    '  GG100701
  126.         CALL QuickTPut1  _                                           '  GG100701
  127.         (ZUserLocation$ + " Change only in MAIN User File") : _      '  GG100701
  128.         RETURN                                                       '  GG100701
  129.       IF NOT ZNewUser THEN _                                         '  GG100701
  130.         ZOutTxt$ = ZOutTxt$ + ZPressEnter$                           '  GG100701
  131.       GOSUB 12995
  132.       IF ZSubParm < 0 THEN _                                         '  GG100701
  133.          GOTO 202                                                    '  GG100701
  134.       IF NOT ZNewUser AND ZWasQ = 0 THEN RETURN                      '  GG100701
  135.       IF WasA1$ = "" THEN RETURN                                     '  GG100701
  136.       IF ZWasQ = 0 THEN _                                             
  137.          GOTO 12960
  138.       IF ZUserIn$ = SPACE$(LEN(ZUserIn$)) THEN _
  139.          GOTO 12960
  140.       IF NOT ZNewUser THEN _                                         '  GG100701
  141.          GOSUB 12989 : _                                             '  GG100701
  142.          CALL OpenUser (HighestUserRecord) : _                       '  GG100701
  143.          GOSUB 9450 : _                                              '  GG100701
  144.          GET 5,ZUserFileIndex                                        '  GG100701
  145.       CALL AllCaps (ZUserIn$)
  146.       LSET ZCityState$ = ZUserIn$
  147.       IF NOT ZNewUser THEN _                                         '  GG100701
  148.         GOSUB 9440 : _                                               '  GG100701
  149.         GOSUB 12991 : _                                              '  GG100701
  150.         CALL SkipLine (1) : _                                        '  GG100701
  151.         CALL QuickTPut(ZUserLocation$ + " changed",2) : _            '  GG100701
  152.         CALL UpdtCalr(ZUserLocation$ + " changed to " + _            '  GG100701
  153.             ZCityState$,2)                                           '  GG100701
  154.       ZWasCI$ = ZUserIn$ 
  155.       RETURN
  156.  
  157.  
  158. ------------------------[ GG100901 ]------------------------
  159.  
  160. Problem:  SysOp is unable to change the information contained in the
  161. CITY/STATE field even though the information contained in this field 
  162. may have changed as pertains to the user
  163.  
  164. Solution:  Change RBBS-PC.BAS as follows:
  165.  
  166.  
  167. 11110   ZOutTxt$ = "D)el  F)ind  M)enu  N)ewPW  P)rnt  R)eset Grfx  C)" _
  168.              + ZUserLocation$ + "  Q)uit"                            '  GG100901
  169.         GOSUB 1512
  170.         ZOutTxt$ = "S)ecLvl  U)ser#  X)fer Cnts  T)ime Used  B)aud Change"
  171.         IF ZRestrictByDate THEN _
  172.            ZOutTxt$ = ZOutTxt$ + _
  173.                 " $)RegDate"
  174.         GOSUB 12930
  175.         IF NOT ScanUsers AND ZWasQ = 0 THEN _
  176.            GOTO 11310
  177. 11115   ZWasZ$ = LEFT$(ZUserIn$(ZAnsIndex),1)
  178.         CALL AllCaps (ZWasZ$)
  179.         WasX = INSTR("DNPQFSMR$UXC",ZWasZ$)                          '  GG100901
  180.         IF ZWasZ$ = "" AND ScanUsers THEN _
  181.            GOTO 12965
  182.         ON WasX GOTO 11130,11160,11220,11320,11340,11390,11330,_     '  GG100901
  183.             11400,11450,11127,11490,11190                            '  GG100901
  184.         GOTO 11110
  185. 11160   GOSUB 12800
  186.         GOTO 11290
  187. '                                                                    '  GG100901
  188. ' * C - COMMAND FROM 5- USER MAINTENANCE OPTIONS (CHANGE CITY/STATE) '  GG100901
  189. '                                                                    '  GG100901
  190. 11190   CityStateSave$ = WasCI$                                      '  GG100901
  191.         ZOutTxt$ = ZUserLocation$                                    '  GG100901
  192.         GOSUB 12995                                                  '  GG100901
  193.         IF ZRet OR ZWasQ = 0 THEN GOTO 11015                         '  GG100901
  194.         CALL AllCaps (ZUserIn$)                                      '  GG100901
  195.         LSET ZCityState$ = ZUserIn$                                  '  GG100901
  196.         GOTO 11290                                                   '  GG100901
  197.         WasCI$ = CityStateSave$                                      '  GG100901
  198.         GOTO 11015                                                   '  GG100901
  199.